home *** CD-ROM | disk | FTP | other *** search
/ Mastering Web Site Development / Microsoft Mastering Web Site Development (Microsoft) (1997).iso / Media / SampApps / AdvWorks / AWVB5Demo.EXE / default_main.asp < prev    next >
Encoding:
Text File  |  1996-11-21  |  2.0 KB  |  81 lines
  1. <%
  2.   If Not IsEmpty(Session("ItemCount")) Then
  3.      iCount = Session("ItemCount")
  4.   Else
  5.      iCount = 0
  6.      Session("ItemCount") = iCount
  7.   End If
  8. %>
  9.  
  10. <HTML>
  11.  
  12. <HEAD>
  13. <TITLE>Adventure Works Welcome Center</TITLE>
  14. </HEAD>
  15. <BODY BGCOLOR="#FFFFFF">
  16. <BGSOUND SRC="/MTxDemo/multimedia/audio/wind2.wav">
  17. <FONT FACE="MS Sans Serif" SIZE=2>
  18.  
  19. <TABLE>
  20. <TR>
  21. <TD VALIGN=TOP ALIGN=LEFT>
  22. <P>
  23. <FONT FACE="Comic Sans MS" SIZE=5 COLOR="#800000"><STRONG>
  24. <% If IsEmpty(Session("CustomerFirstName")) Then %>
  25.   Welcome to Adventure Works:
  26. <% Else %>
  27.   Welcome back to Adventure Works <%=Session("CustomerFirstName")%>!!!
  28. <% End If %>
  29. </FONT>
  30.  
  31. </STRONG>
  32. You are visitor #<STRONG><%=Session("VisitorID")%></STRONG>
  33. </CENTER>
  34.  
  35. <P>
  36. </TR>
  37.  
  38. You know the drill:  Proper equipment for your climb leads to a successful ascent. Adventure Works gear has been tested in the most extreme environments on earth, from the 8,000-meter peaks of the Himalayas to the sub-arctic giants of Alaska.
  39. <P>
  40.  
  41. Adventure Works has all the gear you need for any excursion, from a day hike to a major expedition.  Shop with us, set up camp with us, and take our challenge.  Join the Adventure Works expedition!
  42. <P>
  43. <BR>
  44. <IMG SRC="/MTxDemo/multimedia/images/tipofday.gif" ALT="Tip of the Day">
  45. <%
  46.  
  47.   'On Error Resume Next
  48.   Set InStream = Server.CreateObject("Scripting.FileSystemObject")
  49.   Randomize
  50.   TipNumber = Int(Rnd * 10)
  51.  
  52.   tipFileName = server.mappath("/MTxDemo") + "\tips.txt"
  53.   Set TextStream = InStream.OpenTextFile(tipFileName, 1, False, False)
  54.   For i = 1 to TipNumber
  55.       TextStream.SkipLine
  56.   Next
  57.     
  58.   TipOfTheDay = TextStream.ReadLine
  59. %>
  60. <BR><FONT FACE="ARIAL NARROW" SIZE=4 COLOR="#800000"><STRONG>
  61. <%= TipOfTheDay %></STRONG></FONT>
  62.  
  63. </TD>
  64.  
  65. </TR>
  66. </FONT>
  67.  
  68. <% REM Column Span Value %>
  69. <% HTML_CS = 3 %>
  70. <% HTML_INDENT = FALSE %>
  71.  
  72. <!--#include virtual="/MTxDemo/Disclaim.txt" -->
  73.  
  74. </TABLE>
  75.  
  76. <!--#include virtual="/MTxDemo/srcform.txt"-->
  77.  
  78. </BODY>
  79.  
  80. </HTML>
  81.